﻿Public Class frmAgregarTipoResultado

    Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
        If Me.txtTipoResultado.EditValue IsNot Nothing And Me.txtUnidadMedida.EditValue IsNot Nothing And Me.txtValorNormal.EditValue IsNot Nothing And Me.cboTipoAnalisis.Text <> "[Vacío]" Then
            Me.Tipo_ResultadoTableAdapter.Insert(Me.txtTipoResultado.EditValue.ToString, Me.txtUnidadMedida.EditValue.ToString, Me.txtValorNormal.EditValue.ToString, Me.cboTipoAnalisis.EditValue)
            MessageBox.Show("Se ha agregado el tipo de resultado correctamente a los registros", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)
            Me.Dispose()
            Me.Close()
        Else
            MessageBox.Show("¡No se han ingresado todos los datos!, Llene los datos faltantes e intentelo de nuevo.", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Dispose()
        Me.Close()
    End Sub

    Private Sub frmAgregarTipoResultado_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'LabCDMDataSet.TipoAnalisis' Puede moverla o quitarla según sea necesario.
        Me.TipoAnalisisTableAdapter.Fill(Me.LabCDMDataSet.TipoAnalisis)

    End Sub
End Class